home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / icondr / icondemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.4 KB  |  82 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2895
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1545
  7.    ClientWidth     =   5505
  8.    Height          =   3300
  9.    Left            =   1110
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2895
  13.    ScaleWidth      =   5505
  14.    Top             =   1200
  15.    Width           =   5625
  16.    Begin Timer Timer1 
  17.       Interval        =   500
  18.       Left            =   120
  19.       Top             =   1200
  20.    End
  21.    Begin PictureBox Pic 
  22.       AutoRedraw      =   -1  'True
  23.       AutoSize        =   -1  'True
  24.       Height          =   510
  25.       Index           =   2
  26.       Left            =   1320
  27.       Picture         =   ICONDEMO.FRX:0000
  28.       ScaleHeight     =   480
  29.       ScaleWidth      =   480
  30.       TabIndex        =   2
  31.       Top             =   600
  32.       Width           =   510
  33.    End
  34.    Begin PictureBox Pic 
  35.       AutoRedraw      =   -1  'True
  36.       AutoSize        =   -1  'True
  37.       Height          =   510
  38.       Index           =   1
  39.       Left            =   720
  40.       Picture         =   ICONDEMO.FRX:0302
  41.       ScaleHeight     =   480
  42.       ScaleWidth      =   480
  43.       TabIndex        =   1
  44.       Top             =   600
  45.       Width           =   510
  46.    End
  47.    Begin PictureBox Pic 
  48.       AutoRedraw      =   -1  'True
  49.       AutoSize        =   -1  'True
  50.       Height          =   510
  51.       Index           =   0
  52.       Left            =   120
  53.       Picture         =   ICONDEMO.FRX:0604
  54.       ScaleHeight     =   480
  55.       ScaleWidth      =   480
  56.       TabIndex        =   0
  57.       Top             =   600
  58.       Width           =   510
  59.    End
  60. Sub Form_Load ()
  61. '-- show the form as an icon on startup
  62. WindowState = 1
  63. End Sub
  64. Sub Timer1_Timer ()
  65. Static IconNumber
  66. '-- we want IconNumber to be 0 to 3
  67. IconNumber = (IconNumber + 1) Mod 4
  68. Form1.Caption = "Icon" + Str$(IconNumber)
  69. If IconNumber = 3 Then '-- draw something instead of using an icon
  70.     '-- first, clear any icon
  71.     Form1.Icon = LoadPicture()
  72.     '-- now clear the picture
  73.     Form1.Picture = LoadPicture()
  74.     '-- set width of line to 4
  75.     DrawWidth = 4
  76.     Form1.Line (0, 0)-(530, 530), QBColor(14), B
  77.     Form1.Line (0, 0)-(530, 530), QBColor(12)
  78. Else '-- transfer an icon from one of the pictures on the form
  79.     Form1.Icon = Pic(IconNumber).Picture
  80. End If
  81. End Sub
  82.